From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 1 May 1994 08:55:23 +0000 (+0000)
Subject: (x-handle-geometry): Specify user-position and
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~91813
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=6e42f5f8bb41579fdfd945c8d44bbaf46f3d9c17;p=emacs.git

(x-handle-geometry): Specify user-position and
user-size properties when appropriate.
---

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index e300d797746..ec9060c448d 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -169,10 +169,15 @@
 
 ;; Handle the geometry option
 (defun x-handle-geometry (switch)
-  (setq initial-frame-alist
-	(append initial-frame-alist
-		(x-parse-geometry (car x-invocation-args)))
-	x-invocation-args (cdr x-invocation-args)))
+  (let ((geo (x-parse-geometry (car x-invocation-args))))
+    (setq initial-frame-alist
+	  (append initial-frame-alist
+		  (if (or (assq 'left geo) (assq 'top geo))
+		      '((user-position . t)))
+		  (if (or (assq 'height geo) (assq 'width geo))
+		      '((user-size . t)))
+		  geo)
+	  x-invocation-args (cdr x-invocation-args))))
 
 ;; Handle the -name and -rn options.  Set the variable x-resource-name
 ;; to the option's operand; if the switch was `-name', set the name of